
let main () =
	let m1 = new SimpleModulator.env_modulator (new SimpleModulator.basic_envelope 0.1 2. 1. 1.7 5.) 1. 0.
	and m2 = new SimpleModulator.env_modulator (new SimpleModulator.basic_envelope 0.1 3. 1. 2.1 5.) 1.2 1.2 
	let dem = new Visu.drawable_simple_add m1 m2
		in dem#draw (512,512) (-1. , 6.) 5.

let _ = main ()

